﻿' ******************************************************************************
' ** 
' **  Yahoo! Managed
' **  Written by Marius Häusler 2011
' **  It would be pleasant, if you contact me when you are using this code.
' **  Contact: YahooFinanceManaged@gmail.com
' **  Project Home: http://code.google.com/p/yahoo-finance-managed/
' **  
' ******************************************************************************
' **  
' **  Copyright 2011 Marius Häusler
' **  
' **  Licensed under the Apache License, Version 2.0 (the "License");
' **  you may not use this file except in compliance with the License.
' **  You may obtain a copy of the License at
' **  
' **    http://www.apache.org/licenses/LICENSE-2.0
' **  
' **  Unless required by applicable law or agreed to in writing, software
' **  distributed under the License is distributed on an "AS IS" BASIS,
' **  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
' **  See the License for the specific language governing permissions and
' **  limitations under the License.
' ** 
' ******************************************************************************


Namespace YahooManaged.Search.BOSS

    Public Class WebSearchResult
        Inherits SearchResult

        Private mDisplayUrl As String = String.Empty
        Private mCrawlingDate As DateTime = #12:00:00 AM#
        Private mLanguage As Language = YahooManaged.Language.en
        Private mSMFeed As String = String.Empty

        Public ReadOnly Property DisplayUrl() As String
            Get
                Return mDisplayUrl
            End Get
        End Property
        Public ReadOnly Property CrawlingDate() As DateTime
            Get
                Return mCrawlingDate
            End Get
        End Property
        Public ReadOnly Property Language() As Language
            Get
                Return mLanguage
            End Get
        End Property
        Public ReadOnly Property SMFeed As String
            Get
                Return mSMFeed
            End Get
        End Property

        Friend Sub New(ByVal result As SearchResult, ByVal dispUrl As String, ByVal crwDate As DateTime, ByVal language As Language, ByVal smFeed As String)
            MyBase.New(result.Title, result.Abstract, result.Url, result.ClickUrl)
            mDisplayUrl = dispUrl
            mCrawlingDate = crwDate
            mLanguage = language
            mSMFeed = smFeed
        End Sub
    End Class


End Namespace